home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #7 / amigamamagazinepolishissue1998.iso / teenagent / instalacja na hd < prev    next >
Text File  |  1998-04-07  |  1KB  |  71 lines
  1. ; $VER: TeenAgent CD Installation script 1.0.0 (18.02.98) by Docent
  2.  
  3. (set #CopyingMain "Kopiujë niezbëdne pliki...")
  4.  
  5. (set #about
  6. (cat "\n\nTeenAgent AGA CD\n\n"
  7.      "Produkcja: Metropolis\n"
  8.      "Wersja na Amigë: Union Systems\n\n"
  9.      "Copyright ©1996 Union Systems & Metropolis.\n"
  10.      "All rights reserved.\n"
  11. ))
  12.  
  13. (set #about-help
  14. (cat "\n\n  Ten skrypt instaluje pliki niezbëdne do prawidîowego"
  15.      " uruchomienia gry TeenAgent CD z dysku twardego."
  16. ))
  17.  
  18.  
  19. (set #goodbye
  20. (cat "\n\n\nInstalacja zakoïczona!\n"
  21. ))
  22.  
  23. ;========================================
  24. ; Welcome the user.
  25.  
  26. (complete 0)
  27. (welcome)
  28. (message #about
  29.     (help #about-help)
  30. )
  31.  
  32.  
  33. (complete 10)
  34. (set dest_dir
  35.     (askdir
  36.         (prompt "\nWybierz miejsce na dysku, gdzie ma byê zainstalowany\n"
  37.                         " TeenAgent. Zostanie tam utworzony katalog 'TeenAgent'.\n")
  38.         (help @askdir-help)
  39.         (default @default-dest)
  40.     )
  41. )
  42. (set @default-dest dest_dir)
  43. (set dest_dir
  44.     (tackon dest_dir "TeenAgent")
  45. )
  46.  
  47. (makedir dest_dir)
  48.  
  49. (complete 50)
  50. (copyfiles 
  51.     (source "TeenHD/")
  52.       (prompt "\n" #CopyingMain)
  53.       (dest dest_dir)
  54.     (infos)
  55.       (all)
  56. )
  57.  
  58. (set src_dir (pathonly @icon))
  59. (textfile (dest (tackon dest_dir "TeenAgent"))
  60.           (append (cat "assign TEENSAVE: \"\"\n"
  61.                         "cd \""src_dir"\"\n"
  62.                        "TeenAgent\n"
  63.           )
  64.           )
  65.      )
  66.  
  67. (complete 100)
  68. (message #goodbye)
  69.  
  70. (exit)
  71.